0 POKE53272,24
1 PRINT"[129][147][145]";
2 POKE53270,216
10 A=2304
20 B=2
30 FORI=0TO3
40 FORX=0TO3
50 POKE1024+I*40+X,PEEK((A+I*256)+B*4+X)
60 NEXTX
70 NEXTI